home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 12 / Amiga Format AFCD12 (Apr 1997, Issue 96).iso / -screenplay- / shareware / soliton / soliton-install < prev    next >
Text File  |  1997-02-08  |  9KB  |  241 lines
  1. ;
  2. ;   Installation script for Soliton
  3. ;   Copyright © 1997 Kai Nickel
  4. ;
  5. ;   Last Change: 97-01-26
  6. ;
  7.  
  8.  
  9. ;*******************************************************************************
  10. ;                     Language depending strings
  11. ;*******************************************************************************
  12.  
  13. (complete 0)
  14.  
  15. (set #LANG
  16.   (askchoice (prompt "Wählen Sie ihre bevorzugte Sprache:\nSelect your preferred Language:")
  17.              (help "Wählen Sie hier Ihre bevorzugte Sprache für Soliton, die Anleitung und die weitere Installation.\n\n\n"
  18.                    "Please select your prefered language for Soliton, the documentation and the further installation.")
  19.              (choices "deutsch" "english")
  20.              (default 0)
  21.   )
  22. )
  23.  
  24. (if (= #LANG 0)
  25.   (
  26.     ;
  27.     ; ***** DEUTSCH
  28.     ;
  29.     (set #MSG_MUI        "Sie haben MUI gar nicht oder in einer veralteten Version installiert.\n Soliton benötigt MUI 3.6 oder höher.\n\nSie können Soliton trotzdem installieren, aber es wird erst laufen, wenn Sie eine aktuelle MUI-Version installieren.\n")
  30.     (set #MSG_OLDOS      "Soliton benötigt AmigaOS 3.0 oder höher, da die Spielkarten per Datatypes geladen werden.")
  31.     (set #MSG_PATH       "Wählen Sie das Verzeichnis, in dem die Schublade 'Soliton' erzeugt werden soll.")
  32.     (set #MSG_PATH_HELP  "Im gewählten Pfad wird ein neues Verzeichnis namens 'Soliton' erzeugt, in das Soliton und die zugehörigen Dateien kopiert werden.\nEs werden etwa 90KB für die Installation benötigt.\n\nSie können mit 'Make New Drawer' auch zuerst ein neues Verzeichnis erstellen.\n")
  33.     (set #MSG_MAIN       "Installieren des Hauptprogramms 'Soliton'")
  34.     (set #MSG_MAIN_HELP  "Das Hauptprogramm Soliton. Die Dokumentation muß sich später im selben Verzeichnis befinden.\n")
  35.     (set #MSG_GUIDE      "Installieren der Dokumentation 'Soliton.guide'")
  36.     (set #MSG_GUIDE_HELP "'Soliton.guide' ist Dokumentation und gleichzeitig Online-Hilfe.\nSie muß in das gleiche Verzeichnis wie das Hauptprogramm.")
  37.     (set #MSG_CARDS      "Spielkarten und Hintergrundmuster kopieren")
  38.     (set #MSG_CARDS_HELP "Die Spielkartensätze liegen entweder als Bild mit allen Karten vor, oder aber als Verzeichnis mit einer Datei für jede Karte.")
  39.     (set #MSG_ICONS      "Was für Icons möchten sie?")
  40.     (set #MSG_ICONS_HELP "Für die installierten Files stehen Piktogramme im MagicWB-Stil zur Verfügung.\n\nWenn sie kein MagicWB installiert haben, sollten sie diese Icons auch nicht verwenden.\n(MagicWB ist eine Workbench-Erweiterung von Martin Huttenloher.)")
  41.     (set #MSG_DOICONS    "Kopieren der MagicWB-Icons.")
  42.  
  43.     (set #MSG_CAT        "Den deutschen 'Soliton.catalog' installieren.")
  44.     (set #MSG_CATDIR     "Verzeichnis für deutschen Katalog erzeugen.")
  45.     (set #MSG_CAT_HELP   "Der Soliton.catalog enthält alle deutschen Programmtexte. Wer ihn nicht installiert, muß Soliton in Englisch ertragen.\n")
  46.     (set #NAME_CATDIR    "Catalogs/Deutsch")
  47.  
  48.     (set #NAME_GUIDE     "Docs/Deutsch/Soliton.guide")
  49.   )
  50.   (
  51.     (set #MSG_MUI        "You do not have MUI (or only an outdated version of it).\nSoliton need MUI 3.6 or higher.\n\nYou can install Soliton now, but it will not work until you install a new version of MUI, too.\n")
  52.     (set #MSG_OLDOS      "Soliton needs AmigaOS 3.0 or higher, because the cardsets are loaded via datatypes.")
  53.     (set #MSG_PATH       "Choose the path where the new drawer 'Soliton' should be created.")
  54.     (set #MSG_PATH_HELP  "In the choosen path a new drawer named 'Soliton' will be created, in which Soliton and its files will be copied.\nAbout 90KB will be needed for the installation.\n\nYou also may create a new drawer via 'Make New Drawer' before.\n")
  55.     (set #MSG_MAIN       "Install the main program 'Soliton'")
  56.     (set #MSG_MAIN_HELP  "The main program Soliton. The documentation has to be in the same drawer.\n")
  57.     (set #MSG_GUIDE      "Install the documentation 'Soliton.guide'")
  58.     (set #MSG_GUIDE_HELP "'Soliton.guide' is the documentation and online-help.\nIt must be placed into the same drawer as the main program.\n")
  59.     (set #MSG_CARDS      "Copy cardsets and patterns")
  60.     (set #MSG_CARDS_HELP "There are cardsets as image containing all cards or as directory with a file for each card.")
  61.     (set #MSG_ICONS      "What icons do you want?")
  62.     (set #MSG_ICONS_HELP "For the files exist icons in ths MagicWB-style.\n\nIf you do not have MagicWB, you also should not install these icons.\n(MagicWB is a Workbench-enhancment by Martin Huttenloher.)")
  63.     (set #MSG_DOICONS    "Install the MagicWB-icons.")
  64.  
  65.     (set #NAME_GUIDE     "Docs/English/Soliton.guide")
  66.   )
  67. )
  68.  
  69.  
  70. ;*******************************************************************************
  71. ;                               Check MUI
  72. ;*******************************************************************************
  73.  
  74. (complete 10)
  75.  
  76. (set #OSVersion (/ (getversion) 65536))
  77. (if (< #OSVersion 39)
  78.   (message #MSG_OLDOS)
  79. )
  80.  
  81.  
  82. (if (exists ("LIBS:Muimaster.library"))
  83.   (
  84.     (set #MUIVER (/ (getversion "LIBS:Muimaster.library") 65536))
  85.     (if (< #MUIVER 17)
  86.       (message #MSG_MUI)
  87.     )
  88.   )
  89.   (message #MSG_MUI)
  90. )
  91.  
  92.  
  93.  
  94. ;*******************************************************************************
  95. ;                          Get and create path
  96. ;*******************************************************************************
  97.  
  98. (complete 20)
  99.  
  100. (set #DESTINATION
  101.   (askdir (prompt  #MSG_PATH)
  102.           (help    #MSG_PATH_HELP)
  103.           (default @default-dest)
  104.   )
  105. )
  106.  
  107. (set #DESTINATION (tackon #DESTINATION "Soliton"))
  108.  
  109. (set @default-dest #DESTINATION)
  110.  
  111. (makedir #DESTINATION
  112.   (help @makedir-help)
  113.   (infos)
  114. )
  115.  
  116.  
  117.  
  118. ;*******************************************************************************
  119. ;                          Ask for icons
  120. ;*******************************************************************************
  121.  
  122. (set #ICONS
  123.   (askchoice (prompt  #MSG_ICONS)
  124.              (help    #MSG_ICONS_HELP)
  125.              (choices "Standard" "MagicWB")
  126.              (default 0)
  127.   )
  128. )
  129.  
  130.  
  131.  
  132. ;*******************************************************************************
  133. ;                      Copy Main program and guide
  134. ;*******************************************************************************
  135.  
  136. (complete 30)
  137.  
  138. (copyfiles (prompt #MSG_MAIN)
  139.            (source "Soliton")
  140.            (dest #DESTINATION)
  141.            (confirm)
  142.            (infos)
  143.            (noposition)
  144.            (help #MSG_MAIN_HELP)
  145. )
  146.  
  147. (complete 50)
  148.  
  149. (copyfiles (prompt #MSG_GUIDE)
  150.            (source #NAME_GUIDE)
  151.            (dest   #DESTINATION)
  152.            (confirm)
  153.            (infos)
  154.            (noposition)
  155.            (help #MSG_GUIDE_HELP)
  156. )
  157.  
  158.  
  159.  
  160. ;*******************************************************************************
  161. ;                             Copy Catalog
  162. ;*******************************************************************************
  163.  
  164. (complete 60)
  165.  
  166. (if (= #LANG 0)
  167.   (
  168.     (makedir (tackon #DESTINATION "Catalogs")
  169.              (help @makedir-help)
  170.              (confirm)
  171.              (infos)
  172.              (prompt #MSG_CATDIR)
  173.     )
  174.  
  175.     (copyfiles (dest   (tackon #DESTINATION #NAME_CATDIR))
  176.                (source (tackon #NAME_CATDIR "Soliton.catalog"))
  177.                (prompt #MSG_CAT)
  178.                (help #MSG_CAT_HELP)
  179.                (confirm)
  180.     )
  181.   )
  182. )
  183.  
  184.  
  185.  
  186. ;*******************************************************************************
  187. ;                             Copy graphics
  188. ;*******************************************************************************
  189.  
  190. (complete 70)
  191.  
  192. (copyfiles (prompt #MSG_CARDS)
  193.            (source "Graphics/")
  194.            (dest   (tackon #DESTINATION "Graphics"))
  195.            (help #MSG_CARDS_HELP)
  196.            (confirm)
  197.            (all)
  198.            (infos)
  199. )
  200.  
  201.  
  202.  
  203. ;*******************************************************************************
  204. ;                             Copy icons
  205. ;*******************************************************************************
  206.  
  207. (complete 80)
  208.  
  209. (if (= #ICONS 1)
  210.   (
  211.     (copyfiles (prompt  #MSG_DOICONS)
  212.                (source  "MWBIcons/")
  213.                (dest    #DESTINATION)
  214.                (pattern "Soliton#?")
  215.     )
  216.  
  217.     (copyfiles (prompt #MSG_DOICONS)
  218.                (source "MWBIcons/Graphics.info")
  219.                (dest   #DESTINATION)
  220.     )
  221.  
  222.     (if (= #LANG 0)
  223.       (copyfiles (prompt #MSG_DOICONS)
  224.                  (source "MWBIcons/Catalogs.info")
  225.                  (dest   #DESTINATION)
  226.       )
  227.     )
  228.  
  229.     (run (cat "copy " "MWBIcons/Drawer.info \"" #DESTINATION ".info\""))
  230.   )
  231. )
  232.  
  233.  
  234.  
  235. ;*******************************************************************************
  236. ;                             Goodbye
  237. ;*******************************************************************************
  238.  
  239. (complete 100)
  240. (exit)
  241.